home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 026-050 / scopedisk33 / rxenv / compile.txed < prev    next >
Text File  |  1995-03-18  |  378b  |  26 lines
  1. /* TxEd Plus calling function to perform compiles */
  2.  
  3. options results
  4.  
  5. ST D
  6.  
  7. if result = "" 
  8.     then directory = 'Source:' 
  9.     else directory = result
  10.  
  11. ST F
  12.  
  13. if result = "" 
  14.     then do
  15.         MSG 'problem with filename'
  16.         exit 20
  17.         end
  18.     else filename = result
  19.  
  20. SAVEas directory || filename
  21.  
  22. len = length( filename )-2
  23. temp = 'RunWSH rxcomp ' || left( filename, len )
  24.  
  25. address COMMAND temp
  26.